

package TagServer::Event;


#UML_MODELER_BEGIN_PERSONAL_VARS_Event

#UML_MODELER_END_PERSONAL_VARS_Event

#use ::evt;



=head1 EVENT



=cut


=head1 PUBLIC ATTRIBUTES

=pod 



=cut


=head1 PUBLIC METHODS

=pod 

=head3 new

   Parameters :
      evt : evt : 

   Return : 
      

   Description : 
      

=cut

sub new
{
  my($self,
     $evt, # evt : 
    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_new
#UML_MODELER_END_PERSONAL_CODE_new
}




=cut


=head1 METHODS FOR SUBCLASSING



=cut


=head1 PRIVATE METHODS



=cut






return 1;
